home *** CD-ROM | disk | FTP | other *** search
/ Mac Mania 4 / MacMania 4.toast / / Tools&Utilities / nl-phone-conv-20-fmpro / NLphoneConv / NLphoneConvSlowMac.fmpr2.0 (.txt) < prev    next >
FileMaker Pro Database  |  1995-04-08  |  36KB  |  236 lines

  1. HBAM2001MAY84
  2. Empty
  3. 015-2
  4. 030-2
  5. 0541-5
  6. 015-213
  7. 030-231
  8. 0541-51
  9. Changed
  10. 08-04-95
  11. C@MMENT
  12. ID@NTL@BEL
  13. TELNEW
  14. TELOLD
  15. TELOLDSTRIPPED
  16. YesfD
  17.     Helvetica
  18. TelOldB
  19. K@#2B
  20. Left (TelOldStripped,2)
  21. YesfD
  22.     Helvetica
  23. K@#3B
  24. Left (TelOldStripped,3)
  25. K@#4B
  26. Left (TelOldStripped,4)
  27. Left (TextToNum (0 & TelOld),5)
  28. K@#6B
  29. Left (TextToNum (0 & TelOld),6)
  30. L@#2B
  31. PTTconvDataK
  32. L@#3B
  33. PTTconvDataK
  34. L@#4B
  35. etica
  36. L@#5B
  37. PTTconvDataK
  38. L@#6B
  39. PTTconvDataK
  40. PTTconvDataK
  41. N@#3B
  42. PTTconvDataK
  43. N@#4B
  44. PTTconvDataK
  45. N@#5B
  46. PTTconvDataK
  47. N@#6B
  48. PTTconvDataK
  49. TelNewB
  50. C@mmentB
  51. If (TelNew = "Error!  ","Area/Nr unknown!",                                                    If (TelOld = "","Empty!",                                                                               If (Left (TB
  52. elOld,1) = "+","International",                                                        If (Left (TelOld,2) = "00","International",                                                   If (Left (TelOld,2) = "06","0
  53. YesfD
  54. TelNew
  55. C@mment
  56. Id@ntL@bel
  57. TelOldStripped
  58. ConvListB
  59. YesfD
  60. Empty
  61. ,0.30-314153C
  62. 3031F
  63. 30314G
  64. 303141H
  65. 030-2N
  66. 030-231 31 53S
  67. OK, Changed
  68. 30314153
  69. User Dictionary
  70. TelOld
  71. Tel.Old
  72. l    {I0_*
  73. ownerB
  74. sharerC
  75. YesfD
  76.     Helvetica
  77. Chicago
  78. Geneva
  79. Monaco
  80. elOld),                         
  81. 3h (TextToNum(0 & TelOld)) - Length (L2))),2) ))))))
  82. PTTconvDataK
  83. Id@ntL@belB
  84. TelOldStrippedB
  85. If (Int (TextToNum (0 & TelOld)) 
  86.  TextToNum (0 & TelOld) , TextToNum (0 & TelOld) * (10 ^ ( Length (TextToNum (0 & TelOld)) - Length (Int (TextToNum (0 & TelOld))) - If (Int (TextToNum (0 & TelOld)) = 0 ,0 ,1)B
  87. )) , TextToNum (0 & TelOld))
  88. Compleet
  89. ConvList
  90. Read Me MeMeI 
  91. Ub                                                                                            ))))))
  92. Error!&
  93.                                        N@#4 & Right (TextToNum (0 & TelOld),                        
  94.                                                                        N@#3 & Right (TelOldStripped,                                            Length (TelOldStripped) - Length (L@#3))),                        T
  95.                                               N@#2 & Right (TextToNum (0 & TelOld),                                              Length (TelOldStripped) - Length (L@#2))), 10 ,3)                                
  96. If (TelOld = "","",                                                                                      If (Left (TelOld,1) = "+",TelOld,                                                                        B
  97.       If (Left (TelOld,2) = "00",TelOld,                                                                           If (TelOldStripped = "611",  "112",                                                 If (Left (T
  98.                                                               & " "                                                                                                                   & Middle (If (N@#2 = "0",If J
  99. (N@#3 = "0",If (N@#4 = "0",If (N@#5 = "0",If (N@#6 = "0","",                                                                                   N@#6 & Right (TelOldStripped,                                      
  100. or!  
  101. Non-existent Nr!&
  102. Empty!&
  103. International&
  104. International&
  105. '    06-number&
  106. Old International&
  107. Nr is too long&
  108. Nr is too short
  109. OK, Same Dialing'
  110. OK, Changed
  111. Nr is too long&
  112. Nr is too short
  113. OK, Same Dialing'
  114. OK, Changed
  115.       Length (TelOldStripped) - Length (L@#6))),                                                                         N@#5 & Right (TelOldStripped,                                                Length (TelOL
  116. ldStripped) - Length (L@#5))),                                                                     N@#4 & Right (TelOldStripped,                                               Length (TelOldStripped) - Length (L
  117. Pro 1.0F!
  118. Pro 1.0I
  119. Main Dictionary
  120. User Dictionary
  121. 5, J. J. Lodder
  122. Id@ntL@bel
  123. Read MeB
  124. CopyHelp
  125. Single
  126. CompleetB
  127. Adding conversion to your own FMPRO database.
  128. Having obtained the password you can see these notes.
  129. You need to define 17 or 18 new fields. Open (a copy of) your database file (be sure to have adequate backup)B
  130. NLphoneConv.fmpr with the password. Choose define fields under the Edit Menu (Cmd-Shift-D).
  131. Select a field and click options, apply select all to the formula
  132. and copy a field definition.
  133. Go to your own fil
  134. SingleB
  135. TelOld
  136. Empty!U
  137. K, ChangedU
  138. 14153
  139. 30314153
  140. Empty!
  141. Empty!
  142. Empty!
  143. CopyHelpB
  144. TelOld
  145. @#4))),                                                                     N@#3 & Right (TelOldStripped,                                               Length (TelOldStripped) - Length (L@#3))),                N
  146.                                                     N@#2 & Right (TextToNum (0 & TelOld),                                               Length (TextToNum(0 & TelOld)) - Length (L@#2))),8 ,2)                    
  147.       Length (TelOldStripped) - Length (L@#6))),                                                                     N@#5 & Right (TelOldStripped,                                             Length (TelOldStripR
  148. ped) - Length (L@#5))),                                                                     N@#4 & Right (TelOldStripped,                                           Length (TelOldStripped) - Length (L@#4))),    
  149. d),Length (TextToNum(0 & TelOld)) - Length (L2))),2) ))))))
  150.                                                                     & " "                                                                                                                    & Middle (If (N@#2 = P
  151. "0",If (N@#3 = "0",If (N@#4 = "0",If (N@#5 = "0",If (N@#6 = "0","",                                                                              N@#6 & Right (TelOldStripped,                                    
  152. ength (L@#4))),                                                                        N@#3 & Right (TelOldStripped,                                            Length (TelOldStripped) - Length (L@#3))),        H
  153.                                                                  N@#2 & Right (TelOldStripped,                                              Length (TelOldStripped) - Length (L@#2))),7)                          
  154. elOld,2) = "06",TelOld,                                                                     If (Left (TelOld,2) = "09",TelOld,                                                                Left (If (N@#2 = "0"D
  155. ,If (N@#3 = "0",If (N@#4 = "0",If (N@#5 = "0",If (N@#6 = "0","Error!",                                                                     N@#6 & Right (TelOldStripped,                                          
  156. E{"OK, Same Dialing",                                                                                  "OK, Changed")))))))))
  157. Error!  
  158. Area/Nr unknown!&
  159. Empty!&
  160. International&
  161. International&
  162. '    06-number&
  163. Old International&
  164. Nr is too long&
  165. Nr is too short
  166. OK, Same Dialing'
  167. OK, Changed
  168. Compleet
  169. ConvList
  170. Read Me
  171. 6-number",                                                      If (Left (TelOld,2) = "09","Old International",                                            If (Length (TelNew)  > 13 ,"Nr is too long",           D
  172.                                          If (Length (TelNew) < 13 ,"Nr is too short",                                                   If (TelOldStripped = TextToNum (0 & TelNew),                              
  173.          Length (TelOldStripped) - Length (L@#6))),                                                                       N@#5 & Right (TelOldStripped,                                                   Length (F
  174. TelOldStripped) - Length (L@#5))),                                                                          N@#4 & Right (TelOldStripped,                                              Length (TelOldStripped) - L
  175. N@#2.........N@#6 look up the new prefix. 
  176. Finally TelNew computes the new phone number and formats it,
  177. C@mments indicates possible errors. Field names have been
  178. @tted to prevent a naming conflict with yourF
  179.  other fields. If you happen to have a field with the same name make a change.
  180. It is convenient to define TelOld as an extra calc field set equal to your phone field. This way you can convert more than one phon
  181. Copyright 1995, J. J. Lodder
  182. Copyright 1995, J. J. Lodder
  183. TelNew without the need for a relookup.
  184. After Oct 10 you merely have to omit the superfluous F~calc fields, change TelNew from a calculation field to a text field (and rename it appropriately) and live happily ever after.
  185. e and create the same fields there.
  186. K@#2.........K@#6 are calculation fields made equal to a part of a
  187. stripped phone number, to be looked up in the PTT data.
  188. The SlowMac version stores an intermediate result.
  189. Next there are 10 lookup fields. Do set lookup to get the definitions. Do not forget to set Use 0 in case of no match, correct conversion depends on this!
  190. L@#2.........L@#6 look up the corresponding old area co
  191. K@#5B
  192. Left (TelOldStripped,5)
  193. K@#6B
  194. Left (TelOldStripped,6)
  195. L@#2B
  196. PTTconvDataK
  197. L@#3B
  198. PTTconvDataK
  199. L@#4B
  200. N@#2B
  201. PTTconvDataK
  202. N@#3B
  203. PTTconvDataK
  204. N@#4B
  205. PTTconvDataK
  206. N@#5B
  207. PTTconvDataK
  208. N@#6B
  209. PTTconvDataK
  210. TelNewB
  211. TelNew
  212. C@mment
  213. Copyright 1995, J. J. Lodder
  214. Id@ntL@bel
  215. TelOld
  216. A    Layout #6B
  217. TelOld
  218. Id@ntL@bel
  219. K@#4S
  220. Empty!
  221. TelOld
  222. TelOld
  223. e field without duplication of the conversion machinery.
  224. To force conversion of existing records do a relookup on TelOld. New phone numbers entered in TelOld will appear immediately in TelNew without the need H
  225. for a relookup.
  226. After Oct 10 you merely have to omit the superfluous calc and lookup fields, change TelNew from a calculation field to a text field (and rename it appropriately) and live happily ever after.
  227. TelOld
  228. TelNew
  229. C@mment
  230. Copyright 1995, J. J. Lodder
  231. Id@ntL@bel
  232. Dialing@
  233. Same@
  234. Same@
  235. Same@
  236.